'Internet Explorer对象
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")